home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / avm / prog / source / moveto.avmsrc < prev    next >
Text File  |  1977-12-31  |  2KB  |  63 lines
  1. startrecord=true
  2. label=
  3. nodetype=8
  4. line1=parse upper arg mailbox2 stuff
  5. line2=
  6. line3=numlogs = words(stuff) / 2
  7. line4=do i = 1 to numlogs; mailbox = word(stuff, (i - 1) * 2 + 1); logname = word(stuff, (i - 1) * 2 + 2)
  8. line5=    call loadLogEntry(mailbox, logname)
  9. line6=        /* copy log itself */
  10. line7=    address command 'copy >nil: <nil: quiet' logFile(mailbox, logname) || "#?" logFile(mailbox2, '')
  11. line8=        /* copy filenames referenced if they aren't absolute filenames */
  12. line9=    if (log.fileName ~= "" & (verify(log.fileName, '/:', 'M') = 0)) then 
  13. line10=        address command 'copy >nil: <nil: quiet' voiceFile(mailbox, log.fileName) || "#?" voiceFile(mailbox2, '')
  14. nextactiontype=3
  15. nextactionaction=
  16. endrecord=true
  17. startrecord=true
  18. label=
  19. nodetype=8
  20. line1=    if (log.altFileName ~= "" & (verify(log.altFileName, '/:', 'M') = 0)) then
  21. line2=        address command 'copy >nil: <nil: quiet' voiceFile(mailbox, log.altFileName) || "#?" voiceFile(mailbox2, '')
  22. line3=    address rexx 'broadcast' 'addtomailbox' mailbox2 logname
  23. line4=end
  24. line5=/* delete logs from original place */
  25. line6=address rexx 'delete' stuff
  26. line7=exit
  27. line8=
  28. line9=
  29. line10=
  30. nextactiontype=3
  31. nextactionaction=
  32. endrecord=true
  33. startrecord=true
  34. label=error
  35. nodetype=8
  36. line1=
  37. line2=
  38. line3=
  39. line4=
  40. line5=
  41. line6=
  42. line7=
  43. line8=
  44. line9=
  45. line10=
  46. nextactiontype=2
  47. nextactionaction=exit
  48. endrecord=true
  49. startrecord=true
  50. label=
  51. nodetype=7
  52. filename=avm:rexx/logfunctions.avm
  53. nextactiontype=3
  54. nextactionaction=
  55. endrecord=true
  56. startrecord=true
  57. label=
  58. nodetype=7
  59. filename=avm:rexx/debugfunctions.avm
  60. nextactiontype=3
  61. nextactionaction=
  62. endrecord=true
  63.